; ORIGINAL: 3dt2.1/examples/symbols.scm
; $Id: symbols.scm,v 1.4 1997/04/30 20:24:22 jread Exp $
;- symbols.scm ----------------------------------------------------
; Display unbound and bound Scheme symbols
;------------------------------------------------------------------
(define symbols
  (lambda ()
     (begin
      (display "UNBOUND SYMBOLS -------------------------------------------\n")
      (do ((tail (oblist) (cdr tail))) ((null? tail))
        (do ((l (car tail) (cdr l))) ((null? l))
           (if (not(bound? (car l)))
              (print (car l)))))
      (display "BOUND SYMBOLS ---------------------------------------------\n")
      (do ((tail (oblist) (cdr tail))) ((null? tail))
        (do ((l (car tail) (cdr l))) ((null? l))
           (if (bound? (car l))
              (print (car l))))))))
